home *** CD-ROM | disk | FTP | other *** search
/ USGS: Oil & Gas Fields of Asia Pacific / USGS Maps Showing Geology, Oil & Gas Fields of Asia Pacific.iso / pc / ASPAC / EXPORT / MISC / AUS2.AML < prev    next >
Text File  |  1999-02-18  |  12KB  |  378 lines
  1. /* This program is to draw the map of geology and provinces of Australia and New Zealand
  2. /* Original AML by Jin Qiang
  3. /* Modified by Douglas Steinshouer, USGS GEO CERT WEP, Denver, CO, 01/12/1999
  4.  
  5. /* ----------------------------------------------------------------------------
  6.  
  7.  
  8. /* &sys rm ../plots/aus.gra
  9. /* &sys rm ../plots/aus.hpg
  10. &sys rm ../plots/aus.ps
  11.  
  12. ap
  13.  
  14. /* disp 9999
  15.  
  16. /* display 1040
  17. /* ../plots/aus.gra 
  18.  
  19. display 1040 2
  20. aus.ps 
  21.  
  22.  
  23.  
  24.  
  25. /* &if [exists aus.map -directory] &then killmap aus.map
  26. /* map aus.map
  27.  
  28.  
  29.  
  30. mape ../covers/aus_nz/geo_aus
  31.  pagesize 52 35
  32.  mapposition ll 0 2.5 
  33. mapunits meters
  34. mapscale 7500000
  35. /* -----------------draw map----------------------
  36.  
  37. textset font.txt
  38. textsymbol 14
  39. textquality kern
  40. textstyle typeset
  41. textsize 11 pt
  42. move 48 33.5
  43. textfile ausprov.txt
  44.  
  45.  
  46.  
  47. /* -------------- draw aus(geology)arcs, and ocean ridge arcs
  48. lineset plotter.lin;linesymbol 1;linesize 0.005
  49. /* box 0 0 48 35
  50.  
  51. /*  --------------- draw color and pattern for geology
  52. shadeset ../legend/usgsgeo.shd
  53. polygonshades ../covers/aus_nz/geo_aus GEN_GLG ../legend/glg.lut
  54. shadeset ../legend/lith.shd
  55. reselect ../covers/aus_nz/geo_aus poly TYPE IN {'e','i','v','w'}
  56. polygonshades ../covers/aus_nz/geo_aus TYPE ../legend/lith.lut
  57. arcs ../covers/aus_nz/geo_aus
  58.  
  59.  
  60.  
  61.  
  62.  
  63. /* ---------- write selected geologic features
  64. textcolor 1 
  65. textquality kern
  66. /* textfont times
  67. textset font.txt
  68. textsymbol 1
  69. textsize 5 pt
  70. aselect ../covers/aus_nz/geo_aus poly
  71. reselect ../covers/aus_nz/geo_aus poly GEN_GLG IN {'H2O','oth','und'}
  72. nselect ../covers/aus_nz/geo_aus poly
  73. reselect ../covers/aus_nz/geo_aus poly area > 1000000000
  74. polygontext ../covers/aus_nz/geo_aus gen_glg 
  75.  
  76.  
  77. /* ----------------- write topic, bar, usgs
  78. textdelete all;textset font.txt; textsymbol 1
  79. textsize 15 pt
  80. move 2.2 34.1
  81. text 'U.S. DEPARTMENT OF INTERIOR'
  82. textsize 14 pt
  83. MOVE 2.2 33.9
  84. TEXT 'U.S. GEOLOGICAL SURVEY'
  85. move 48.8 34.1
  86. textsize 15 pt
  87. text 'OPEN-FILE REPORT 97-470F'
  88. move 50.25 33.9
  89. textsize 14 pt
  90. text 'PLATE 3 OF 3'
  91. TEXTSYMBOL 16;TEXTSIZE 18 PT
  92. move 23.01 1.725
  93. text 'By'
  94. move 19.2 1.35
  95. text 'Douglas W. Steinshouer, Jin Qiang, Peter J. McCabe and Robert T. Ryder'
  96. move 22.95 .95
  97. textsize 14 pt
  98. text '1999'
  99. textsize 24 pt;
  100. move 14.2 2.4
  101. text 'MAPS SHOWING GEOLOGY, OIL AND GAS FIELDS, AND GEOLOGIC PROVINCES OF THE ASIA PACIFIC REGION'
  102. move 20.65 2
  103. text 'Plate 3: Australia and New Zealand'
  104. /* ------------ draw legends -------------------
  105. textsize 15 pt;TEXTSYMBOL 14
  106. move 2.3 11.4
  107.  
  108. textsize 8 pt
  109. move 2.15 3.3
  110. text 'Projection: Lambert Conformal Conic with Two Standard Parallels at 10 degrees South and 30 degrees South Latitude'
  111. move 2.15 3.15
  112. text 'Central Meridian: 148 degrees East Longitude
  113.  
  114.  
  115. /* ----------------------draw major cities
  116.  
  117. markerset plotter.mrk
  118. markersize 0.125
  119. pointmarkers city_aus 45
  120.  
  121. textset plotter.txt
  122. textsymbol 73
  123. textsize 12 pt
  124. pointtext ../covers/aus_nz/cit_aus NAME UL
  125. textdelete all
  126.  
  127.  
  128. /* ------------draw oil/gas fields markers from PetroConsultants
  129. markerset oilgas.mrk
  130. markerscale mapscale 2000000 
  131. reselect ../covers/aus_nz/fld_aus point COMMODITY = 'Oil'
  132. pointmarkers ../covers/aus_nz/fld_aus 102
  133. nselect ../covers/aus_nz/fld_aus point
  134. pointmarkers ../covers/aus_nz/fld_aus 202
  135.  
  136.  
  137. &r  ../legend/mapbar 20.55 3.8 7500000
  138.  
  139. /* ------------------- write words
  140. textdelete all
  141. textset font.txt; textsymbol 14;textsize 10 pt
  142.  
  143.  
  144.  
  145.  /* -------------- draw longtitude-latitude
  146. linesize 0.02;linecolor black
  147. reselect ../covers/aus_nz/grd_aus arc grd_aus-id = 1
  148. arcs ../covers/aus_nz/grd_aus
  149. clearselect ../covers/aus_nz/grd_aus arc
  150. reselect ../covers/aus_nz/grd_aus arc grd_aus-id = 3 
  151. linecolor green;linesize 0.00001
  152. arcs ../covers/aus_nz/grd_aus
  153. textdelete all
  154. textset font.txt
  155. textsymbol 14
  156.  
  157. textsize 8 pt
  158. textstyle typeset
  159. move 3.207 33.69; text '114!pat1713'
  160. move 5.625 33.69;text '118!pat1713'
  161. move 8.015 33.69;text '122!pat1713'
  162. move 10.398 33.7;text '126!pat1713'
  163. move 12.765 33.7;text '130!pat1713'
  164. move 15.104 33.7;text '134!pat1713'
  165. move 17.45 33.7;text '138!pat1713'
  166. move 19.778 33.711;text '142!pat1713'
  167. move 22.111 33.711;text '146!pat1713'
  168. move 24.439 33.715;text '150!pat1713'
  169. move 26.766 33.715;text '154!pat1713'
  170. move 29.105 33.72;text '158!pat1713'
  171. move 31.428 33.722;text '162!pat1713'
  172. move 33.793 33.728;text '166!pat1713'
  173. move 36.151 33.728;text '170!pat1713'
  174. move 38.528 33.728;text '174!pat1713'
  175. move 40.937 33.737;text '178!pat1713'
  176. move 43.323 33.742;text '178!pat1713'
  177. move 42.142 33.74;text '180!pat1713'
  178. move 45.767 33.742;text '174!pat1713'
  179. move 47.2 33.216;text '4!pat1713'
  180. move 47.2 30.765;text '8!pat1713'
  181. move 47.2 28.36;text '12!pat1713'
  182. move 47.2 25.983;text '16!pat1713'
  183. move 47.2 23.614;text '20!pat1713'
  184. move 47.2 21.234;text '24!pat1713'
  185. move 47.2 18.838;text '28!pat1713'
  186. move 47.2 16.424;text '32!pat1713'
  187. move 47.2 13.94;text '36!pat1713'
  188. move 47.2 11.407;text '40!pat1713'
  189. move 47.2 8.789;text '44!pat1713'
  190. move 47.2 6.089;text '48!pat1713'
  191. move 27.54 9.923;text '48!pat1713'
  192. move 27.54 7.228;text '52!pat1713'
  193. move 2.07 31.41;text '8!pat1713'
  194. move 2.019 29.025;text '12!pat1713'
  195. move 2.019 26.667;text '16!pat1713'
  196. move 2.019 24.307;text '20!pat1713'
  197. move 2.019 21.957;text '24!pat1713'
  198. move 2.019 19.579;text '28!pat1713'
  199. move 2.019 17.174;text '32!pat1713'
  200. move 2.019 14.718;text '36!pat1713'
  201. move 2.019 12.219;text '40!pat1713'
  202. move 2.984 11.66;text '104!pat1713'
  203. move 4.903 11.66;text '108!pat1713'
  204. move 6.8 11.665;text '112!pat1713'
  205. move 8.684 11.669;text '116!pat1713'
  206. move 10.542 11.67;text '120!pat1713'
  207. move 12.389 11.68;text '124!pat1713'
  208. move 14.223 11.685;text '128!pat1713'
  209. move 16.046 11.69;text '132!pat1713'
  210. move 17.864 11.7;text '136!pat1713'
  211. move 19.679 11.7;text '140!pat1713'
  212. move 21.463 11.7;text '144!pat1713'
  213. move 23.284 11.72;text '148!pat1713'
  214. move 25.082 11.72;text '152!pat1713'
  215. move 26.895 11.72;text '156!pat1713'
  216. move 28.181 4.636;text '160!pat1713'
  217. move 29.828 4.636;text '164!pat1713'
  218. move 31.475 4.636;text '168!pat1713'
  219. move 33.14 4.636;text '172!pat1713'
  220. move 34.812 4.636;text '176!pat1713'
  221. move 36.509 4.636;text '180!pat1713'
  222. move 38.166 4.636;text '176!pat1713'
  223. move 39.889 4.636;text '172!pat1713'
  224. move 41.616 4.636;text '168!pat1713'
  225. move 43.383 4.636;text '164!pat1713'
  226. move 45.169 4.636;text '160!pat1713'
  227. move 46.975 4.636;text '156!pat1713'
  228.  
  229. /* --------------- draw province boundaries
  230. lineset carto.lin
  231. /* reselect ../covers/aus_nz/prv_aus
  232. arclines ../covers/aus_nz/prv_aus 202
  233. textdelete all
  234. textset carto.txt;textsymbol 231
  235. /* annotext provs1 
  236. annotext ../covers/aus_nz/prv_aus
  237.  
  238.  
  239. plot ../legend/legend.gra box 1.75 2.25 13 11.5
  240.  
  241. plot auindex.gra box 21.1 8 27 11
  242.  
  243. shadeset ../legend/usgsgeo.shd
  244. shadesymbol 165
  245. linecolor black
  246. patch 38 5 46.94 10.15 OUTLINE
  247.  
  248. textset font.txt
  249.  
  250. textsymbol 14
  251. textquality kern
  252. textsize 11 pt
  253. textstyle typeset
  254.  
  255.  
  256. move 41.25 9.7
  257. text 'ABOUT THIS MAP'
  258. move 38.5 9.45
  259. text 'This digitally compiled map is part of a worldwide series of maps on CD-ROM released by the U.S. Geologic Survey!pat87s World' 
  260. move 38.5 9.25
  261. text 'World Energy Project.  The goal of the project is to assess the undiscovered, technically recoverable oil and gas resources'
  262. move 38.5 9.05
  263. text 'of the world.  For data management purposes, the world is divided into eight regions corresponding approximately to the'
  264. move 38.5 8.85
  265. text 'economic regions of the world as defined by be U.S. Department of State.  This map covers the southern part of the Asia'
  266. move 38.5 8.65
  267. text 'Pacific Region (Region 3) and includes Australia, Fiji, New Caledonia, New Zealand, Tonga and Vanuatu.  Two additional maps'
  268. move 38.5 8.45
  269. text 'of the Asia Pacific Region cover the Far East and Southeast Asia.  The region is divided into geologic provinces.'
  270. move 38.5 8.25
  271. text 'Each province has a set of geologic characteristics that distinguish it from surrounding provinces.  These characteristics'
  272. move 38.5 8.05
  273. text 'may include the predominant lithologies, the age of the strata, and the structural style.  Some provinces contain multiple'
  274. move 38.5 7.85
  275. text 'genetically-related basins.  Offshore province boundaries are defined by the 2000 meter bathymetric contour.  Each province'
  276. move 38.5 7.65
  277. text 'is assigned a unique number that begins with the region number (3).  Details of the map sources and map compilation are given'
  278. move 38.5 7.45
  279. text 'in the metadata file on the CD-ROM and at the lower left of this map.  The geologic outcrops on this map are based primarily'
  280. move 38.5 7.25
  281. text 'on the Geological Map of the World: Australia and Oceania published by the Bureau of Mineral Resources'
  282. move 38.5 7.05
  283. text '(Now Australian Geological Survey Organisation)(1965 and 1967) and the New Zealand Geological Survey (1971).'
  284. move 38.5 6.85
  285. text 'the World: Australia and Oceania published by the Bureau of Mineral Resources (now Australian Geological'
  286. move 38.5 6.65
  287. text 'Some stratigraphic units are combined to simplify the map and to ensure consistency across the region.  Sedimentary'
  288. move 38.5 6.45
  289. text 'and metamorphic rocks are shown by age and are not differentiated.  The centerpoint location of oil and gas fields are plotted'
  290. move 38.5 6.25
  291. text 'based on the locations in the Petroconsultants International Data Corp. (1996) database with permission.'
  292. move 38.5 6.05
  293. text 'This map is compiled using Environmental Systems Research Institute, Inc. (ESRI) Arc/Info software.  Political boundaries'
  294. move 38.5 5.85
  295. text 'and cartographic representations on this map are taken, with permission, from ESRI!pat87s ArcWorld 1:3m digital coverages: they'
  296. move 38.5 5.65
  297. text 'have no political significance and are displayed as a general reference only.  Portions of this database covering the coastlines' 
  298. move 38.5 5.45
  299. text 'and country boundaries contain intellectual property of Environmental Systems Research Institute, Inc (ESRI).'
  300. move 38.5 5.25
  301. text 'Copyright (c)1992 and 1996, ESRI. All rights reserved.'
  302.  
  303.  
  304.  
  305. textdelete all
  306.  
  307. textset font.txt
  308. textsymbol 1
  309. textquality kern
  310. textsize 11 pt
  311.  
  312. /* move 41 1
  313. /* text 'WORLD ENERGY PROJECT     Thomas S. Ahlbrandt, Project Chief'
  314.  
  315. /* plot /region3-4/steinshouer/region3/legend/logo.gra 41 0.5
  316.  
  317.  
  318. move 12.25 10.75
  319. text 'This map has been digitally compiled and abstracted from THE GEOLOGICAL MAP OF THE WORLD: AUSTRALIA AND OCEANIA,'
  320. move 12.25 10.55
  321. text 'FIRST EDITION, 1965 and 1967' 
  322. move 12.25 10.35
  323. text 'Bureau of Mineral Resources, Geology and Geophysics, Australia Department of National Development' 
  324. move 12.25 10.15
  325. text '(now Australian Geological Survey Organisation).'
  326. move 12.25 9.95
  327. text 'Commission for the Geological Map of the World (International Geological Congress).'
  328. move 12.25 9.75
  329. text 'Sheets 6, 7, 8, 11, and 12'
  330. move 12.25 9.55
  331. text 'Scale 1:5,000,000'
  332. move 12.25 9.3
  333. text 'and from THE GEOLOGICAL MAP OF THE WORLD: AUSTRALIA AND OCEANIA, FIRST EDITION 1971'
  334. move 12.25 9.1
  335. text 'New Zealand Geological Survey'
  336. move 12.25 8.9
  337. text 'Commission for the Geological Map of the World (International Geological Congress).'
  338. move 12.25 8.7
  339. text 'Sheets 9 and 13'
  340. move 12.25 8.5
  341. text 'Scale 1:5,000,000'
  342. move 12.25 8.25
  343. text 'Shorelines compiled and abstracted from ARCWORLD Country Boundaries, 1992.'
  344. move 12.25 8.05
  345. text 'Environmental Systems Research Institute, Inc. (ESRI).'
  346. move 12.25 7.85
  347. text 'Scale 1:3,000,000'
  348. move 12.25 7.6
  349. text 'Oil and Gas Field Location Centerpoints are compiled from Petroconsultants' 
  350. move 12.25 7.4
  351. text 'Exploration and Production Database, 1996.'
  352. move 12.25 7.2
  353. text 'Petroconsultants International Data Corp.'
  354. move 12.25 6.95
  355. text 'Index map abstracted from ARCWORLD, Country Boundaries, 1992'
  356. move 12.25 6.75
  357. text 'ESRI'
  358. move 12.25 6.55
  359. text 'Scale 1:10,000,000'
  360.  
  361. textsize 9 pt
  362. move 23.485 7.75
  363. text 'Projection: Robinson'
  364. move 44 4.25
  365. text 'INTERIOR - GEOLOGICAL SURVEY, DENVER, CO - 1999'
  366.  
  367.  
  368.  
  369.  
  370.  
  371.  
  372. quit
  373. /* hpgl2 ../plots/aus.gra ../plots/aus.hpg # # OPAQUE
  374. /* draw ../plots/aus.gra 9999 
  375.  
  376. &return
  377.  
  378.